Option Explicit
Sub E_Sample022()
   'ո E_Data01u@g
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myRng3 As Range
    With Worksheets
        Set myRng1 = .Item("E_Data01").Range("A1").CurrentRegion 'ӷd
        Set myRng2 = .Item("E_Data01").Range("K1:L2")     	 'd
        Set myRng3 = .Add(After:=.Item(.Count)) _
        .Range("A1").Resize(, myRng1.Columns.Count)     	 'wgؼ
    End With
    'NJxsdW
    myRng2.Cells(1, 1) = myRng1.Cells(1, 3)             'Wrw
    myRng2.Cells(1, 2) = myRng1.Cells(1, 6)             'z
    myRng2.Cells(2, 1) = "s*"                          'w
    myRng2.Cells(2, 2) = ">50"
    myRng1.AdvancedFilter _
    Action:=xlFilterCopy, _
    CriteriaRange:=myRng2, _
    CopyToRange:=myRng3
    With myRng1.Parent
        If .FilterMode Then
            .ShowAllData
        End If
    End With
    myRng2.Clear                                    '󪺧R
    Set myRng1 = Nothing                            '
    Set myRng2 = Nothing
    Set myRng3 = Nothing
End Sub


